home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
MacWorld 1999 February
/
Macworld (1999-02).dmg
/
Games World
/
Hot Demos!
/
DroidWorks demo
/
dwCD.gob
/
mission_cog_b0_conv.cog
< prev
next >
Wrap
Text File
|
1998-09-17
|
2KB
|
106 lines
#
# CC_Laser.cog
#
# Crystal Information Center Laser script
#
# 03/24/98 DGS Created.
#
# (C) 1998 Lucas Learning Limited All Rights Reserved
# ========================================================================================
symbols
## ================ Messages
message startup
message timer
message entered
message exited
message pulse
surface conveyor nolink
sound wav0=MCH00tCnvyr03.WAV local
sound wav1=ELV00tSmllElvStp.WAV local
sound wav2=MCHt9MotStrt.WAV local
vector up_v
vector down_v
sector down_s
sector up_s
sector con_s
flex speed=3.0 local
int conv_i=0 local
end
# ========================================================================================
code
startup:
player=getlocalplayerthing();
return;
entered:
print("entered");
printint(getthingsector(player));
printint(down_s);
settimer(0);
if (getthingsector(player) == down_s)
{
settimer(0);
print("Yoyo!");
call stop_c;
//sleep(1);
timermode = 2;
setpulse(0.8);
}
if (getthingsector(player) == up_s)
{
settimer(0);
print("Yoyo!");
call stop_c;
//sleep(1);
timermode = 3;
setpulse(0.8);
}
return;
exited:
print("see ya later!222");
if ((getsenderref() == con_s) || (getsenderref() == down_s) || (getsenderref() == up_s))
{
print("see ya later!");
//timermode = 1;
settimer(1);
}
return;
stop_c:
timer:
//print("Loop");
//printint(conv_i);
if (conv_i != 0)
{
//print("Loop!");
stopanim(conv_i);
if (sounder >0) stopsound(sounder,0.5);
garbage = playsoundpos(wav1,getsurfacecenter(conveyor),0.2,-1,-1,0);
sounder = 0;
conv_i = 0;
}
return;
pulse:
if (timermode == 2)
{
garbage = playsoundpos(wav2,getsurfacecenter(conveyor),0.2,-1,-1,0);
sounder = playsoundpos(wav0,getsurfacecenter(conveyor),0.1,-1,-1,11);
conv_i = slidewall(conveyor, up_v, speed);
}
else if (timermode == 3)
{
garbage = playsoundpos(wav2,getsurfacecenter(conveyor),0.2,-1,-1,0);
sounder = playsoundpos(wav0,getsurfacecenter(conveyor),0.1,-1,-1,11);
conv_i = slidewall(conveyor, down_v, speed);
}
setpulse(0);
return;
end